unit uNumberFunctionStub;

interface

uses uNumberFunction;

type

  TNumberFunctionStub = class(TNumberFunction)
  public
    class function GetName: string; override;
    function Evaluate(AInput: Extended): Extended; override;
  end;

implementation

{ TNumberFunctionStub }

function TNumberFunctionStub.Evaluate(AInput: Extended): Extended;
begin
  result := AInput + 1;
end;

class function TNumberFunctionStub.GetName: string;
begin
  result := 'stub';
end;

end.
